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RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 
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RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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Processes the .REPEAT command. 1b-5¢ -Sep-1984 44 AX-11 Bliss-32 V4.0-74 Page 1 
8ep-1984 of: api 50 RUNOFF OSREIREFEST OL 424 ’ (1) 


ZTITLE ‘Proc ese ee 


wit ANS ommand. . 
MODULE REPEAT 


2 + OO tNG _MODE ( EXTERNAL = ONG_RELATIVE 
NONEXTERNAL = LONG: RELATIVES J 
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BEGIN 


RE TITILILI LILI LILLIE LILLE Titi TTT TTiTiitiTtiTitiie 
'® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


is Lal SOF TWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND COPI 
1 Y IN ACCORD eee THE TERMS OF SUCH LICENSE AND WITH T 
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tt 
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H * 

' ONE E SOFTWARE OR ANY OTHE * 

'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO AN * 

'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREB * 

'® TRANSFERRED. * 

' t 

'® THE INFORMATION IN THIS SOFTWARE IS es I O CHANGE WITHOUT . ® 

te 
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© 
*® 
te 
* 
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T NOTI 
't AND SHOULD NOT BE CONSTRUED AS A TMENT BY DIGITAL EQUIPME 
CORPORATION. 
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it SOFTWARE ON EQUIPMENT WHIC 
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H IS NOT SUPPLIED BY DIGITAL. 
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i ABSTRACT: Processes the .REPEAT command. 


' 

' 

! 

ENVIRONMENT: Transportable 

AUTHOR: R.W. Friday CREATION DATE: December, 1978 
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esses the .REPEAT command. 1h-se 1984 01:31:44 AX-11 Bliss-32 V4.0-742 Page 2 
1e-8ep 198 93:37:86 = 


sion History - RUNOFF .SRCJREPEAT.BLI;1 (2) 
: } RSBTTL "Revision History’ 
; i MODIFIED BY: 
; 46 1! 006 REM00006 Ray Marshall 11 -August-1983 
:- 4% 1! Previous edit was incomplete. There were several RETURN 
; rh 1 statements -- all of which needed return values. 
: 50 ii 005 REMO0005 Ray Marshall July-1983 
: 23 1 Routine REPEAT was changed to cause it to return a value. 
: 38 1/ 004 KAD00004 Keith Dawson 07-Mar-1983 
3 4 1! Global edit of all modules. Updated module names, idents, 
: 22 ! copyright dates. Changed require files to BLISS library. 
: 57 1 ie- 
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v04-000 le Level Declarations 


GLOBAL ROUTINE repeat (handler_code) = 
14 


144 

| FUNCTIONAL DESCRIPTION: 

i See the ABSTRACT, above. 
i FORMAL PARAMETERS: 


esses the .REPEAT command. 18-Sep-1984 94:34:48 AX-11 8 


HANDLER_CODE is a dummy argument, used only for conformance 
with other routines. 


i IMPLICIT INPUTS: None 
i IMPLICIT OUTPUTS: None 
i ROUTINE VALUE: 

i COMPLETION CODES: None 


i SIDE EFFECTS: None 


BEGIN 
LOCAL 


hold_err_count 
veCTOR [4] 


ood Barton ¢ iinad sities C190) 
r strin : xeq strin P 
hold khar> = . 
repeat_count, 


result; 
IF NOT .num_result 
THEN 


BEGIN 
endcmt (); 
~ Shay true; 


IF .num_length EQL 0 
THEN 


BEGIN 
erma (rnfmnl, true); 
A a true; 


WN =O OOBNAUES WN OOONAUE WN OC ODONOUSWN OO OONAUE WN OODOND 


IF_.num_value LEQ 0 
THEN 


BEGIN 
erma (rnfinm, true); 
A true; 


skpsep (ira); 'Skip spaces, tabs, and a comma, 


Be ee Be Se Be Ge Be Be Ge Be Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Ge Se Ge Ge Sete Se Ge Fe Ge Se Se Ge Ge Se Ge Ge Se Se Ge Se Se See Ge Se Se See Bee Se eee ce 

BadbeiatabatadbabaiatlabababababahabalabababababtabuababwBabababwaibabababababababababababahabababaabat abd ababaiaaD ad 
SOOOnNOW 

ROPDPOPIPINIWIAPIPIPINDINIWIAIPI PIN PI HAAIAIRIPUDIPIPU NPI NPIPINI PND 2 2 9 9 OS SS SS 


N— 


'Set up area to hold the repeat text 


esses the .REPEAT command. 16- 984 01:31:44 AX-11 B 
le Level Declarations 14- 4 38 93:5 FF, 
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Liss-32 V4.0-74 
7:50 RUNO SREIREPEAT BL {41 
fs_maxsize (rpt_string) = 150; 
fs_init (rpt string); 


result = getqs (rpt_string); 'Try to get what's to be repeated. 
IF_.result NEQ getqs_normal 
THEN 


ates | ine error a bit more closely. 
A iene EQL getqs_too_lciig 


BEGIN 
erma (rnfqst, false); 
RETURN true; 
END 
Fai i i ly delimited ted stri 
‘Missing or improperly delimited quoted string. 
BEGIN . 


erma (rnfmqs, true); 
— true; 


9499999 9999999999999 99079 FT) 

'Check to see if user is trying to repeat a command. If 
'so, tell him it won't work and refuse to even try it. 
iNOTE: This restriction may be Lifted later, when instead 
427 cots tng SCANT, PUS gets called instead. 


LOCAL 
ptr, 
K; 


ptr = .fs_start (rpt_string); 'Cop a peek at first character. 
x = CHSRCRAR (ptr); ° ‘wine Maggs 


a. EQL .flgt Ccon_flag, flag_character] !<CONTROL flag> ? 
‘User fy tering to do something not yet allowec. 


erma (rnfilc, false); 
+ gue true; 


! weet The above code will eventually change when we have fully 
em ! weeee jmplemented repeated commands 
MARAAAAALAAAAAAAAAAAAAL ALLA 


'Save status of current input string, and 
‘substitute what the user wants repeated instead. 


eegin 'Save status of IRA. 
ira : VECTOR; 


14 | 
REPEAT Processes the .REPEAT command. IB-5¢ 1984 01:31:44 AX-11 Bliss-32 V4.0-74 Page 
v04-000 Module Level pbcloratéaen 1 = 8ep-19 4 eae RUNOFF SREIREPEST OL (04 . «8 
; 0 if INCR i FROM 0 _TO_3 DO 
; 1 28 hold_ira C.1] = .ira C.1); ‘ 
; : 60 hold_khar = .khar; 'Preserve next character. | : 
3 : ¢ 3e¢ all stamens = .gca_errcnt; 'Remember error status. ; 
: 236 036 : ; 
; * te: repeat_count = .num_value; !Pick up repeat count. : 
s oF 0 28 INCR i FROM 1 TO .repeat_count DO 
; 240 036 BEGIN 
H st) 0368 fs_maxsize (ira) = .fs_maxsize (rpt_string); ! Point IRA to user's 
3 g 0369 fs_length (ira) = .fs_Tength (rpt_string); ! string for use by 
: $¢ 0370 fs-start (ira) = .fs_Star Crpt string); ! KCNS and PUS 
: 246 0371 fs_next (ira) = .fs_start (rpt_string); 
3 st? $378 kens (); ‘Initialize scan. 
3 sie bere pus (false); ! Process ‘‘uneated’’ string without using ENDWRD. 
$ $49 0376 ! 
; 250 0377 ' AEAAAALAAAAAAAAAAAAA AAA 
; $2) C 0378 x( 
3 26 C 0379 scant (); 'Scan user's string as if it were text. 
i C 0380 IF NOT .sca_fill !End of Line means end of record if not filling. 
> 254 C 0381 THEN 
; 255 C Beg IF .sca_justify 
> 256 C 038 THEN 
> 257 C 0384 ; outj 'No fill, justify 
3; gon C 0385 
3 aoe C 0386 3 outnj (); 'No fill, no justify 
; 260 0387 : x 
: 261 0388 ! AAALAAAAAAAAAA ALAA ALAA AL AA 
3 $06 8358 5! 
; 26 390 ; IF .hold_err_count NEQ .gca_errcnt 
> 264 0391 
; 265 $424 3 EXITLOOP; ‘Abort processing if an error occurs. 
; 266 0393 2 ND; 
3; 267 0394 
; 268 0395 'Restore previous status of IRA, FS01 and KHAR 
; $88 0396 BEGIN 
: 270 0397 MAP 
3 (art 0398 ira : VECTOR; 
Hy $i 0399 INCR i FROM O TO 3 DO ‘ | 
; 2 0400 ira C.i] = .hold_ira C.i); ! Restore IRA 
3; 274 0401 khar = .hold_khar 
; 275 040¢ END 
; 76 40 
: 77 0404 1 END; 'End of REPEAT 
-TITLE REPEAT Processes the .REPEAT command. 
-IDENT \V04-000\ 
-EXTRN FLGT, FSO1, GCA 
-EXTRN IRA, KHARK, NUMPRM 
TEXTRN SCA. RNFCEM, RNFILC 
-EXTRN RNFINM, RNFANL, RNFMQS 


H 14 
REPEAT Processes the .REPEAT command. 16-Sep-1984 01:31:44 AX-11 Bliss-32 V4.0-74 
v04-000 Module Level Declarations 12-808- 1382 943d 586 RUNOFF SRE REPEAT L144 

-EXTRN RNFQST, ENDCMT, ERMA 

-EXTRN GETQS, OUTJ, OUTNJ 

“EXTRN PUS, SKPSEP, RINTES 


-PSECT SCODES,NOWRT,2 


O3FC 9000 .ENTRY REPEAT Saye R2,R3,R4,R5,R6,R7,RB,RO 
59 900000006 EF 9E 0000 MOVAB GCA+196, R 
58 000000006 EF 9€ 0000 MOVAB NUMPRM+4, RB 
57 000000006 EF 9E 919 MOVAB KHAR, R7 
56 000000006 EF 9€ 0001 MOVAB IRA, R6 
3E FFG cE 44 001 MOVAB -184(SP), SP 
0 FC AB OE BLBS UMPRA {$s 
000000006 EF 00 FB 000 CALLS #0, ENDCMT 
61 11 000 BRB $ 
08 A8 05 00030 1$ TSTL § NUMPRM+12 
A 12 00 BNEQ = 2$ 
1 DD 000 PUSHL #1 
000000006 8F DD 00037 PUSHL #RNFMNL 
4B 11 0003D BRB $ 
68 D5 0003F 2$ TSTL © NUMPRM+4 
0A 14 00041 BGTR 3$ 
01 DD 00043 PUSHL #1 
000000006 er DD 00045 PUSHL #RNFINM 
D 11 00048 BRB 5$ 
56 DD 00040 3$ PUSHL 
000000006 EF 01 FB 0004F CALLS #1, SKPSEP 
08 AE 96 BF 9A 00056 MOVZBL #150, RPT_STRING+8 
0c AE 04 00058 CLRL ——-RPT_STRING+1 
6E 10 AE 9E 80035 MOVAB RPT_STRING*+16, RPT_STRING 
04 AE 6E D0 0006 MOVL RPT_STRING, RPT_STRING+4 
5E DD 00066 PUSHL SP 
000000006 EF 01 FB 00068 CALLS #1, GETQS 
50 D3 0006F TSTL RESULT 
22 13 00071 BEQL «6s 7$ 
02 50 D1 00073 CMPL RESULT, #2 
OA 12 00076 BNEQ 4$ 
7E D4 00078 CLRL (SP 
00000000G 8F ODD ts PUSHL #RNFQST 
08 11 00080 BRB 5$ 
01 DD 00082 4s: PUSHL #1 
000000006 8F DD 00084 PUSHL #RNFMQS 
000000006 EF 02 FB 008A 5$: CALLS #2, 
50 1 p 90091 6$: OVL #1, 
4 00094 ET 
50 D4 0093 7$: CLRL I 
FO AD4O 6640 D 997 8$: MOVL IRACIJ, HOLD_IRACIJ 
F6 30 03 F3 0009D AOBLEQ #3, I, 
5 6 D Al MOVL KHAR, HOLD _KHAR 
55 69 D AG MOVL GCA+196, HOLD ERR COUNT 
54 8 D A7 MOVL § NUMPRM+4, REPEAT_COUNT 
: D4 OOOAA CLRL 
11 OOOAC BRB 2$ 
08 Ab 08 AE 7D OOAE 9$: MOVQ  RPT_STRING+8, IRA+8 
66 6— D B MOVL § RPT“STRING, [RA 
04 Ab 6€ 00 00086 MOVL RPT STRING. IRA+4 
0c A6 D5 OOOBA TSTL  IRATI2 


See Se Se Se Se Ge Se Se Se Ge Ge Se Se Se Se Se Ge Se Fs Ge Ge Se Se Fe Fe Ge Fe Fe Se Se Se Be Fe Fe Se Fe Fe Se Se Fe Fe Se Be Se Se Fe Be Be Se Se 
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REPEAT Processes the .REPEAT command. 14. $ep-1984 31:44 AxX-11 Bliss-32 V4.0-74 
v04-000 Module Level Declarations 14- =308 71388 #h:5}: 86 RUNOFF, SRCIR EPEAT BL ii — “as 
A 14 0008D BGTR 10$ ; 
67 006 8F 9A OO0BF MOVZBL M#RINTES, KHAR : 
phe FE S0RE atest tig Taste : 
67 04 B6 9A C9 10$: MOVZBL @IRA+4, KHAR : 
04 Ab Dg CD INCL IRA+4 : 
" 13 ba 03 11$ Peet yy + 0374 
000000006 EF 01 FB 000D CALLS #1, PUS ; 
69 ; DI 0 oC CMPL HOLD_ERR_COUNT, GCA+196 : 0390 
C9 52 34 r§ 9 El 128: AOBLEQ REPEAT_COUNT, I, 9$ ; 3 $ 
“ 6640 FO “ D9 OE? 14$: OVE HOLD 1 IRACIJ, IRACIJ + 0400 
? g DO O00F1 MOVL HOLD_ fun KHAR + 0401 
0 53 DO 000F4 MOVL § HOLD“KHAR, RO + 0404 
04 000F7 RET : 


Routine Size: 248 bytes, Routine Base: S$CODE$ + 0000 
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$5 0406 1 END tend of nodut 
280 0407 © ELUDOM ee ee 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 248 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
queues Symhol§ coeecos~ Pages Processing 
File Total Loaded Percent Mapped Time 
55$DUA28: CSYSLIBIJXPORT.L32;1 59 0 252 00:00.1 
55$DUAZ8: :ERUNDE ED SRCJDSRLIB.L32;1 1348 26 3 84 00:00.3 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:REPEAT/OBJ=OBJ$:REPEAT MSRCE.REPEAT/UPDATE=(ENHS: REPEAT) 


<z 


REPEAT, _-«=«=Brgcesses the, .REPEAT connand. rB-Sep-1984 1:31:44 yard p 


pn 
xz—. 
Own 


: sizes 248 ob :08.5 + 0 data bytes 


; un Time 

3 phy {tees 06:4 
; Lines/CPU Min: 3708 } 
3 Lexenes/CPU-Min: 15046 


— Used: 78 pages 
; Compilation Complete 
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ND PROPRIETARY 


P 


307 AH-BT13A-SE 


3 DI M 
VAX/VMS V4.0 CO A 


